home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga CD-ROM Collection
/
Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso
/
auge4000
/
76
/
amiga_kocht
/
auspacken
< prev
next >
Wrap
AmigaDOS Script File
|
1992-09-02
|
2KB
|
77 lines
.key Pfad,Inpvar
failat 21
if not exists A.U.G.E._4000_PD_Nr_76:Amiga_Kocht
echo "*n Dieses Script ist nur zum Auspacken des Amiga_Kocht-Archivs"
echo " der A.U.G.E. 4000 PD Nr. 76!! Bite diese Disk einlegen und das Script"
echo " nochmal starten"
quit
endif
cd A.U.G.E._4000_PD_Nr_76:Amiga_Kocht
if not exists Amiga_KochtV1_1.lha
echo
echo "Achtung: der Inhalt dieser Disk ist verändert worden!"
echo "Besorgen Sie sich eine neue, falls diese ebenfalls nicht "
echo "funktioniert, und Sie sie nicht selbst verändert haben,
echo "schicken Sie diese an :
echo "Björn Schreiber · Auf der Hardt 39 · 41542 Dormagen · Germany"
echo "*n Und schreiben Sie mir, wo Sie diese Disk her haben!"
echo
quit
endif
echo
echo
echo "*n A.U.G.E. Auspack-Script Amiga Kocht "
echo "*n es werden etwa 700kB Platz benötigt "
echo "*n*n Soll mit dem Auspacken begonnen werden? " noline
set >nil: InpVar ?
if $InpVar eq "ja"
skip Start
endif
if $InpVar eq "j"
skip Start
endif
if $InpVar eq "y"
skip Start
endif
if $InpVar eq "yes"
skip Start
endif
echo noline "*n*e[32m Auspacken beendet."
quit
lab start
lab Pfadfrage
echo "*n*n Bitte Pfad angeben, wohin entpackt werden soll (Crtl-D für Ende):" noline
set >nil: Pfad ?
if not exists $Pfad
echo "*n Pfadangabe nicht korrekt!"
skip back Pfadfrage
endif
:C/LHA x Amiga_KochtV1_1.lha $Pfad
if fail
echo "*n Auspacken ist fehlgeschlagen!"
quit
endif
echo "Das wars, die Schublade Amiga_KochV1_1 ist im Verzeichnis '$Pfad' zu finden!"
echo
quit